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uus *EDTSMAIN = main entry point 
DTSMAIN ( ! Main enter pe potne for ca 
sDENT = 'v04-000' MAIN.BLI 
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Edit: JB 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DiGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ls COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
iw OTHER PERSON. NO TITLE TO ane OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* — ion. © NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -=- The DEC Standard Editor 


ABSTRACT: 
This module contains the main entry point for callable EDT. 
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ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 
MODIFIED BY: 


1-001 - Original. bus 18-FEB-1981. This nodule was created by 
extracting routine EDT —— modul 5° TCTR. 
0_STS to Aide we 10F 1 Ne 


1-002 - Regularize headers, ch ane i 
nd from SY_EXIT to EDT SFATAL. OER 
Fix module nine | and f * — “JBS —E ar-1981 
Change ence * nt na om EDT to EDTSSMAIN. Entey . JBS 26-Mar-1981 
Change ve SION to — oY so OR. JBS 30-Mar- V9 1 
Change kof $T rl RSION o §bt VER . JBS 30-Mar 139" | 
Correct a spelling kh... n Pots rt ° 58S 02-Apr-1981 
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Use the new message sore * JBS 04-Aug- 
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Implement 
correct ed : history. JBS d1eete 1981 
make major changes to create sharable image. STS 17-Nov-1981 
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~3op-198e 93:35:83? STS cSumGhaSteRscebi secimain.eui;1 29 of 
Put L_LINE back TMV 7=Dec-81 | 
DSCS macros and add comments. STS 7-Dec-1981 
Change the I8 "a of the jouroet filename. STS 1 
Change all alls for comm fo use “éptsriteig —  5-Dec-1981 
Change call to edtsti eio to a tattt — 
Convert open out put f je to m — u 1 Pane 1982 
Deallocate dyneat c str bn 
Saleen STs 1 —— 


Take out unused rhb gence 
Pass filename to edt oft rr. $s} 6-Feb-1 


Add callable | —— — 1 | he 

Enable a handler. S$ ar-19 

Remove the version nusber” to 4 ecoguice ff fi JBS 09-Mar-1982 
Check and set focentry 


Change EDTSSG_CMD a eDts¥é_ 30 JOU to ar ssy W OPT ONS. JBS 24-Mar-1982 
File 1/0 routines urn status. des S$ 26- 

Add resure value of 2 from EDTSSINIT ses 26-Mar-1982 

Copy spe a formes, strings, in case they have an unusual format. 


Fix a typo in edit 1-027. JBS 27-Mar-1982 

Set up command file o oon flag. STS 07-Apr-198 

Give messages on CLOSE errors. JBS 12-Apr-1982 

Add sgegining between command files s using Set nee 53 -May-1982 
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ooo 


Avoid double error printouts on the PDP 1. JBS 28-May-198 
Conditionalize out verses? et £8 *8* * 3 STS O1-Jun-198 
Remove L_LINE and L_C 3-J 
Remove command file” emt ve8s 03- 582 
Allow @ new return code from ED DTSsINIT. "BS 3-Jun-1982 
Revise the interface to command files. JBS 07-Jun-1982 
Be sure the command name is blank after * startup file is reeds JBS 11-Jun-1982 
Pass the default file name in the RHB parameter. ; S$ 15-Jun-1982 
Default the passed perensters if none passed. STS 13-Jul- 1988 
Don't allow defaulting of the main input file. STS 22-Jul-1982 
Don't print the initial warning messages if we will enter change 

mode, but do leave it for change mode to show. JBS 23-Jul-1982 
check the status returne by EDTSSEXE_CMD. JBS 28-Jul-1982 
Add XLATE routine. STS 13-Aug-1982 
Make use of the Literals for the options word masks. STS 17-Aug-1982 
Change the interface to EDTSSSET E MFNAM, JBS 25. Aug-19 
Fix up references to EDTSM_ bits. JBS 23-Aug-1 2 
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EXTERNAL REFERENCES: 


! Inside the routine. 
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EDTSMAIN TSMAIN = main entry point 16-Sep-1984 01:07:45 VAX-11 Bliss-32 V4.0-74 Pa 
Oe . TSEDIT = Main entry point 1o-808-} 382 93:98? STEKSUNGHASTERSCEOT SRC SMAIN.BLI:1 ” 
ZSBTTL "EDTSEDIT = Main entry point’ 
GLOBAL ROUTINE EDTSEDIT ! Main entry point 
L ZIF ZBLISS (BLISS$32) 
ZTHEN 
CINP_DESC, ' Name of the input tite 
T_BESC, ' Name of the output file 
CMD_DESC, ! Name of the command file 
JOU_DESC, ' gene of the journal file 
OPTTONS ! Opt ons bits 
FILE_ROOT, ' File 1/0 routine 
R } Work file 1/0 routine 


WORK 
KLATE_ROut i XLATE command routine 
tI 


lee 


; FUNCTIONAL DESCRIPTION: 
The main entry point for the editor. 
FORMAL PARAMETERS: 


pe Sede te ed 
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i¢ 
' passed variables are set up in global data on the 11's in order to 
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Ore Save stack space. 
rs : INP_DESC = input file Gover ieter 
079 ‘ OUT_DESC = output file descriptor 
—8— CMD_DESC = command file descriptor 
795 ! JOU_DESC = journal file descriptor 
A ! OPTIONS_WRD 
79 ! bit 0 = /RECOVER 
798 : bit 1 = /COMMAND 
799 ! bit § = /NOJOURNAL 
84 , bit = /NOOUTPUT 
801 ! bit 4 = /NOCOMMAND 
Bang : bit 5 = /NOCREAT 
80 : FILE_ROUT - address of file i/o routine to use 
804 ' WORK ROUT = address of work file routine to use 
: 5 XLATE_ROUT - address for translation routine 
— IMPLICIT INPUTS: 
8 NONE 
10 ‘ 
1 : IMPLICIT CUTPUTS: 
ig ' EDTSSA_INP_NAM 
14 ' EDTSS$A_OUT_NAM 
15 : EDTSSA_CMD_NAM 
16 ! Ak GT an 
1 i EDT$$A_JOU_NAM 
18 ! EDTS$$G_INP_NAMLEN 


: 


eset *- = main entry point 


= Main " te 
T_NAMLEN 
5* nn - 


ROUTINE VALUE: 

Normally 1 or EDTS_EDITORABO 
SIDE EFFECTS: 

Performs an edit. 


BEGIN 
ZIF ZBLISS (BLISS32) 
THEN 
BUILTIN 
ACTUAL COUNT; 
MAP 


7 F 
CMD_DESC : REF BLOCK 8 
INP"DESC : R REF BLOCK 
OPTIONS_WRD : REF BITVECT 
FI 
EXTERNA ROUTINE 
LOM 
STERAIN. RCOVMOD : NOVALUE, 


4 
STERMIN 

Be ERR : NOVALUE, 
$ 

$ 


31 
THEN 
EXTER Boyt INE 
EDISXLA 


ritel 


£16. 
SSHANDLER, 
SCOPY_DX, 
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Contains address of work i/o routine and environment 


sets up handler and calls file handling routine 
Execute comma * 

Handle end 9 ournal [tke during /RECOVER 

Do the initial process? ng 

Do the final processing 

Print a message about E file error, with file name 
Type out the currenc Line 

Format and print a message 

Open and close command files 


for copying all kinds of strings 
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n entry point 
n entry point 


STRSFREE1_DX; 


LJ 
= 


151 
EXTE 


t (tees & 
“ 
< 

q 0 a ——— — 

oo vom 

mm mms 

— — This 

Os + Wee 


~ 


eecceees 33 399998 
aassgess 55 5% 


z 
“ 
a 


F 
To 
T 
F 
At 


| 
z2rs 
om 
2 
* 


—F CMD-END, 
$$G_CC_BONE; 


RIF ZBLISS (BLISS32) 
ZTHEN 
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at ness (BLISS32) 


5 
! 
5 
0 


NABLE 
FDTSSHANDLER (); 


AARP PONOPONIPNONOMD 


\— 


MESS AOR ot) ag REENTRY, COMFILNOP, COMFILCLO, NOJNLFIL, INPFILNEX, 


198¢ 9): 9 ————— MAIN.BLI;1 (3 


! for dynamic descriptor deallocation 


! flag signi tying —— 

i User-specif oe command file name 

i Command file name 

i Command file name Length 

i First default command file name (counted ASCII string) 


t default command file default name (counted ASCII string) 
! Second default command file name (counted ASCII string) 


nd 4178 aß default name (counted ASCII string) 


d we exit with the Last command? 
tk of journal file 
length o "lhe file name 
do a recovery Tt 
Current editing nade 
Default editing mode 
nput file name 
Length of above name 
File not found message flag 
Output file name 
Output file name Longer 
1 = open failed due to file not found 
Options bits 
Message for change mode to print 
Pointer to current location in command buffer 
Command buffer 
Pointer to end of command buffer 
1 = control C actually aborted something 


address of fileio routine to use 
environment word to pass fileio routine 
address of translation routine 
environment word to pass xlate 

address of work i/o routine 

environment word to pass work routine 


NONSTDFIL, EDITORABO, ABOBYCC, 


! on VAX enable a handler for error processing 


Page 7 
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5 95 
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2 95 

95 
5 095 
5 95 
5 95 
5 5 
5 95 

95 


o 
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Arun 


ooo 
NO 
200 


— = main entry point, 1b-se0-1986 01:07:45 vac]? BLisse82 
LOCA 


TATUS 
FILE DESC : BLOCK (8, eyTE), 
RHB_BESC : "BLOCK C8, BYTE), 


LISS (BLISS32) 
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IMARY_FILE CONDITION, 
RING_CENGTA; 


'¢ 
i Check *4 Bk cg 44 $0 that the caller cannot 
i re-enter EDT. 67 indicates the everything 


io, k., @ A. e of means this process has already 
} entered EDT. - & an error message 


IF (.EDTSSG_REENTRY EQL 67) THEN EDTS$G_REENTRY = 68 ELSE RETURN (EDTS_REENTRY); 


. EDTS$G_EXITD = 0; 


' 
i On arn we have fields defined for descriptors. 
i Fill them in, 


X1F XBLISS (BLI$$32) 
FILE_DESC DSC$B_DTYPE] = DSCSK_DTYPE_T; 
FILE-DESC EDSC$B~CLASS) = DSCSK~CLASS_D;: 
FILE~DESC [DSCS$A-POINTER) = 0; 
FILE~DESC COSCSW°LENGTH) = 0; 
RHB_BESC Hit Bat = DSC$K_DTYPE_T 
RHB-DESC CDSCSB-CLASS) = DSCSK-CLASS_ D: 
RHB-DESC CDSCSA“POINTER] = 0; ~ 
RHB-DESC COSCSW~ 188 = 0; 


———— () GTR 5) AND (.FILE_ROUT NEQ 0) 


N 

BEGIN 

EDTSSA_FILE_ROUT = .FILE grout £9): ' get address for fileio routine passed 
EDISS6_ FILE-ENV = .FILE_RouT C i and environment word 

ELSE 

peels 

pt SA_FILE_ROUT = EDTSFILEIO; 

Fe eee af SLE EMV = 0; 


i cecal () GTR 6) AND (.WORK_ROUT NEQ 0) 


MSMAST ER: bb 1 °SRCIMAIN. BLI;1 
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: 7 
EDTSMAIN DISMAIN = main entry point 1b-se Sep-1984 5 VAX-11 Oi ist -32 V p — 
ea EDTEcoLy "Role cnchy’solee meets Peer ey GAAS Teacceoi sacSmain.euis1 2% c3$ 
; 391 8 
; 39 ED TSSA. WORK_ROUT = ,WORK_ROUT £93; 
; 33 EDTSSC_ WORK"ENV = .FILE_ROUT C1); | 
; 95 4 ELSE ctn 
; 3 996 ED TSSA. WORK Rou = EDTSWORKIO; 
: 398 EDTS$G_WORK-ENV = 0; 
; 399 998 END; 
; is ——— () GTR 7) AND (.XLATE_ROUT NEQ 0) 
: 4 100¢ 
Pe 1 4 ED Br eeSA _MLATE_ROUT = .XLATE_ROUT £02; 
3 — 5 : : EDTS$G_XLATE_ENV = .XLATE_ROuT (1); 
: 40 1 
: 408 1 BEGIN 
; 409 1008 ED TSSA_XLATE ROUT = EDTSXLATE; 
: 410 1 EDTS$$G_WORK_ENV = 0; 
ei 1911 ; 
: 41 101 ‘+ 
3; 616 1018 i Get all the filenames and the name lengths out of the descriptor 
; 415 1014 ! in which ye were passed and into global variables. On VMS we must 
3 $i$ 1015 i first copy the formal to a local pyr ine to be sure that the Length 
; 47 1016 J amd adarone — hey do. 
: 419 1018 L_INP_DESC DSCSW_LENGTHI = 0; 
: 420 101 L-INP=DESC CDSCSB_DT YP é] = DSCSK_DTYPE_T; 
+ 421 1020 L7INP"DESC [DSC$B~CLASS) = — 
3; 6 : 10 1 L7INP~DESC COSCSA~POINTER) = 0; 
2: 1 : STRSCOPY DX (L_INP_DESC, .INP_DESC); 
; 424 10 EDTSSA_IRP_NAM”= .C_INP_DESC COSCSA POINTER]; 
: 425 1024 EDT$$G INP“NARLEN =".L INP DESC DSC$W_LENGTH); 
3; 426 1025 L_OUT_BESC” CDSCSW_LENGTH) = 
: 427 10 6 L“OUT “DESC —316 = DSCSK_DTYPE_T; 
+ 428 10 LOUT“DESC EDSCSB~CLASS) = DSCSKCLASS—D; 
; 4 9 10 8 “OUT“DESC CDSCSA~POINTER) = 0; 
; 4 1 i 0 IF (ACTUALCOUNT () GTR 1) AND (.OUT_DESC NEQ 0) THEN STRSCOPY_DX (L_OUT_DESC, .OUT_DESC); 
3; 6 j 1058 EDTSSA_OUT_NAM = .L_OUT DESC [DSCSA POINTER}: 
33 1 EDT$$G-OUT~ EN =".L Out TLDES DSC$W_LENGTH); 
+ 435 1 L_CMD_BESC™ (DSC W_LENG * 
; 6 1035 L=CMD"DESC CDSC$B~DTYP e] = DS OF _DTYPE_T 
; 4 1 L~ CMD DESC DSCSB_CLASS = DS cSK CLASS” “; 
; 4 z L7CMD"DESC toſcCAAXMMIEAV- 
440 | IF (ACTUALCOUNT () GTR 2) AND (.CMD_DESC NEQ 0) THEN STRSCOPY_DX (L_CMD_DESC, .CMD_DESC); 
> 46 1044 EDTSSA_CHD_NAM = .L_CMD DESC [DSCSA POINTER]: | 
3 44 1 ; EDT$$G CRD_NARL EN =7.L L CMD _D =PfS¢ DSC$W_LENGTH); 
+ 466 1 L_JOU_BESC”[DSC$W_LENGTH) 
$ 445 1044 L~JOUDESC DSC$B-DTvPE = pstsk _DTYPE_T 
> 46 1045 L7JOU"DESC [DSC$B~CLASS) = DSCSKICL CLASS” “D: 
3 46 1046 L7JOU"DESC CDSCSA"POINTER) = 0; | 
| 
| 
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EDTSMAIN N = main entr int $ep-1984 01:07:45 X-11 $-32 V4.0-74 Pa 0 
‘ba OI = Main entry point 1§-se0-1984 LE aK$V nen TER: CEDT.SRCIMAIN.BLI;1 — dS 
3; «44 1 

3 “cs \ " IF (ACTUALCOUNT () GTR 3) AND (.JOU_DESC NEQ 0) THEN STRSCOPY_DX (L_JOU_DESC, .JOU_DESC); 
; 451 1 EDTSSA_JOU_NAM = .L_JOU_DESC COSCSA_POINTER); 

H : § } ‘ EDTS$$G_JOU_NAMLEN =".L_JOU_DESC COSCSw LENGTH); 

3 2 ¢ } z Copy the options word into global storage so the rest of EDT can test it. 

: 4 1055 

; 2 ? : — IF (ACTUALCOUNT () GTR 4) AND (.OPTIONS_WRD NEQ 0) 

; 459 1 28 EDTSSV_OPTIONS = ..OPTIONS_WRD 

; 460 1 

: 461 1060 EDTSS$V_OPTIONS = 0; 

; 46 1061 

; 46 1 $6 2FI 

: 464 1 

: 465 1 14 

3 reg 1065 ! Do the initial processing. 

; 46 1208 te 

; 468 106 PRIMARY_FILE_CONDITION = EDTSSINIT (); 

; 469 1308 '¢ 

; 470 1069 ! If initialization failed, abort right now. 

i op ion 3 

3 rh 1078 IF (.PRIMARY_FILE_CONDITION EQL 3) THEN RETURN (EDT$_EDITORABO); 

3: «475 1074 '¢ 

; 476 1075 ! If /NOCREATE was specified then exit if file was not found 

rn ee 

3 479 1078 IF ((.PRIMARY_FILE_CONDITION EQL 0) AND ((.EDTSS$V_OPTIONS AND EDTSM_NOCREATE) NEQ 0)) 
: 480 1079 THEN 

; rt 1980 BEGIN 

3 ret 43 IF .EDTSSG_FNF_MSGFLG THEN EDTSSFMT_MSG (EDTS_INPFILNEX); 

; «485 L 10 ZIF XBLISS (BLISS32) 

; 33 8 5 THEN 

; 48 1086 STRer nee) ox (FILE DESC); 

; 488 Ht 3 RSFREE1_DX (RHB_BESC) 

> 489 1 : TRSFREE1-DX (L_INP_DESC); 

; 490 108 STRSFREE1_DX (L_OUT_DESC); 

3; «6491 1 9 STRSFREE1_DX (L_CMD_DESC); 

3; (49 109 STRSFREE1_DX (L_JOU_DESC); 

8 1098 3 

: 495 1094 EDTSSG_REENTRY = 67; ! set up reentry flag so we can call EDT again 
3 $36 1095 RETURN (1); 

3 «49 1 a8 END; 

; 498 1 

3; 499 109 '¢ 

; 500 1 ! Open the journal file. If recovery was specified, open it so we can read 

3 8 11 ! from it. 

3 § 1101 

; 50 11 ; BEGIN 

3; 504 11 
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6 
AIN = main entry point 1b-se -1984 01:07:45 VAX-11 Bliss-32 V4.0-74 Pp 1 
SEDIT - Main entry point Wea eeen ahs Ph 8ees Me tale teRcceoi secSmain.eui:1 2% cd} 
LOCAL 
RHB_LEN; 


RHB_LEN = ZCHARCOUNT (JOU_DEFLT); 
SIRTNG_DESC (RHB_DESC, RHB_LEN, CHSPTR (UPLIT (JOU_DEFLT))); 


o9 
4 
s 


wn 


If .EDTS$G_RCOV_MOD 
THEN 


BEGIN 
STRING_DESC (FILE DESC, EDT$$G_JOU_NAMLEN, .EDTS$A_JOU_NAM); 
STATUS= EDTSSCALCFIO (EDTSK_OPEN_IN_OUT, EDTSK_JOORNAC_FILE, FILE_DESC, RHB_DESC); 
IF (NO 
THEN 


T STATUS) 


T DES 
T =€ 
F 
HE 

BEGIN 

EDTSSFIOPN_ERR (EDTS_NOJNLFIL, FILE_DESC); 

A aa (EDT$_EDITORAGO) ; 

END 

* ELSE 
| We are not in recovery mode; just open the journal file for write. 


AF og SOTO PT TOMS AND EDTSM_NOJOURNAL) EQL 0) ! NOT /NOJOURNAL 


pest DT$$G_JOU_NAMLEN, ats 


E .EDT$$A_JO 
O (EDT$k_OPEN_OUTPUT_NOSEQ, E 


U_NAM) ; 
DT$K_JOURNAL_FILE, FILE_DESC, RHB_DESC); 


Sete Se Ge Se Ge Se Ge Ge Gee Se Se Se Se See Se Se Se Se Se Se Se Se ee Bete Se Se tease 


14 
Make sure the journal file was opened. 


AY NOT .STATUS) AND (.EDTS$V_OPTIONS AND EDTSM_NOJOURNAL) EQL 0) 


BEGIN 
EDTSSFIOPN_ERR (EDT$_NOJNLFIL, FILE_DESC); 
RETURN (EDT$_ED1 TORABO) 


( 
DI 


— the startup file, if one was provided. The startup file is always executed 
;_in Line mode. 
EDT$$G_EDIT_MOD = LINE_MODE; 
IF ((.EDTS$V_OPTIONS AND EDTSM_NOCOMMAND) EQL 0) 
BEGIN 
IF (.EDTS$G_CMD_NAMLEN EQL 0) 


BEGIN 
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EDTSMAIN EDTSMAIN = main entry point 16-Sep-1984 01:07:45 VAX-11 Bliss-32 V4.0-74 Page 
—8 EDTSEDIT = Main entty point 197808- 1382 9439038? NER SUMCMASTERSCEDT  SaCSMAIN.BLI:1 . Ri 
; 56 1 4 '+ ; 
3; 36 11 ; 4 ! No command file nome was provided. use the default. Note that there are : 
: 8 4 ; two default names; if the first is not found we try the second. , 
3 8 1165 4 STATUS = EDTssseT COMFNAM ( ! ; 
3 6 11 4 CHSPTR (EDTSST_CMD_NAM_DEF1, 1), ! Name : 
3 68 11 4 CHSRCHAR (EDTSST_CAD_ NAM D f1) ' Length of name : 
3 8 11 8 4 CHSPTR (EDTSST_CAD_NAM_DEF 1), ! Default name > 
; 570 116 4 CHSRCHAR (EDTSST_CAD_NAM_DEF2) ‘! Default name length ; 
; 71 1170 4 ); d 
3 3 1171 4 é 
3 2 1126 5 IF ( NOT .STATUS) ! 3 
3 74 1175 4 TH é 
s 575 1174 4 STATUS = foresee! COMFNAM ( ! ° 
; 576 1175 4 CHSPTR (EDTSST_CMD_NAM_DEF3, 1), ' Name é 
; 577 1176 4 CHSRCHAR (EDTSST_CAD_NAM DEF3) i Length of name ; 
: 578 1177 4 CHSPTR (EDTS$T_CAD_NAM DEF4, 15, i Default name ; 
3 8 1128 ? CHSRCHAR (EDTS$ST_CAD_NAM_DEF4) ! Default name Length : 
; 581 1180 4 3 
3 28¢ 1181 4 END é 
; 58 1186 : LSE 3 
> 584 118 STATUS = EDTSSSET_COMFNAM (.EDTSSA_CMD_NAM, .EDTSSG_CMD_NAMLEN, CHSPTR (EDTSS$T_CMD_NAM_DEF4, 1), : 
; 585 1184 : CHSRCHAR (EDTS$T_CMD_NAM_DEF4)); ; 
3; 586 1185 3 
3 587 1186 ; IF .STATUS é 
; 588 IUn THEN 3 
; 589 1188 4 BEGIN 3 
; 590 1189 4 3 
3; «#591 1190 5§ IF (EDTSSEXE_CMD (INP_COMMAND) EQL 2) 8 
3 1191 4 THEN 3 
1138 5 BEGIN 3 
3 594 1195 5 !¢ 3 
3 595 1194 5 ! The startup file was terminated by control C. 3 
: 396 1198 8 
3 8 HB 4 ; IF .EDTS$G_CC_DONE THEN EDTSSFMT_MSG (EDT$_ABOBYCC) ELSE EDTSSFMT_MSG (EDT$_CTRC__IGN); ; 
; 600 1199 5 EDTSSA_CMD_BUF = EDTS$T_CMD BUF; ; 
; 601 1200 EDTS$A~CMD-END = .EDTSS$A_CMO_BUF; ; 
: 60¢ o1 * CHSWCHAR (2C'!", .EDTSS$A~CMD-END); : 
3 one \ 68 5 Make sure we stay in Line mode so the message is visible. : 
3; 6 1 bs 2 EDTSS$SG_EDIT_DFLTMOD = LINE_MODE; 3 
3; 607 1206 4 END; 3 
; 608 1207 4 3 
3: 609 1208 4 END 
3; 610 1209 ; ELSE 
3 «611 1210 
3 33 1211 4 IF ((.EDTS$V_OPTIONS AND EDTSM_COMMAND) NEQ 0) 
; 61 1 \§ 3 THEN 
3; 614 121 4 BEGIN 
3 615 1214 4 STRING_DESC (FILE_DESC, EDTS$G_CMD_NAMLEN, .EDTSSA_CMD_NAM); 
; 616 13 4 EDTSSFIOPN_ERR ( 
: 618 1217 4 IF .EDTS$G_IOFI_NFND THEN EDTS_COMFILNEX ELSE EDTS_COMFILNOP, FILE_DESC); 
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N 6 
= main entry point 16-Sep-1984 01:07:45 VAX-11 Bliss-32 V4.0-74 
= Main entry point 137808- 1382 LE PE RSVMGMASTERSCEDT: SRCIMAIN.BLI:1 


RETURN (EDT$_EDITORABO) ; 
END; 


END; 


X 
Make sure the command file is closed, and the name is null. 


STATUS = EDTSSSET_COMFNAM (0, 0, 0, 0); ! Close the command file 
IF ( NOT .STATUS) THEN RETURN (EDT$_EDITORABO) ; 


1+ 
Use the default mode setting. 


EDTSS$G_EDIT_MOD = .EDTS$G_EDIT_DFLTMOD; 

i Give an error message if the primary file was not found or does not have standard format, 
unless we are about to enter change mode, in which case defer the message. 

CASE PRIMARY FILE CONDITION FROM 0 TO 2 OF 


C0] : 
IF (.EDTS$G_EDIT_MOD EQL LINE_MODE) 
THEN 
BEGIN 
IF .EDTSSG_FNF_MSGFLG THEN EDTSSFMT_MSG (EDTS_INPFILNEX); 


END 
ELSE 


IF .EDTSSG_FNF_MSGFLG THEN EDTSS$G_LASTMSG = EDTS_INPFILNEX; 


33 
BEGIN 
END; 
C2] : 
iv (.€07886_€037 ROO EQL LINE_MODE) 
EDTSSFMT_MSG (EDTS_NONSTDF IL) 
* EDTSS$G_LASTMSG = EDTS_NONSTDF IL; 


TES; 


* 


If we are in recovery mode, execute the remainder of the journal file. 
(Part of the journal file may have been used to respond to SUBSTITUTE/QUERY 
commands in the startup file.) 
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EDTSMAIN DISMAIN = main entry point 48 21264 01:07:45 VAX-11 Bliss-32 V4.0-74 Page 14 
— boteen = Main entry point 1 33 —— —⏑,— — ° 3} 
re mT 
; 67 1 4 a (.EDTS$G_RCOV_MOD) 
; 1 3 HEN 
3 : ! 4 BEGIN 
; g 1281 4 IF (EDTSSEXE_CMD (INP_JOURNAL) EQL 2) 
; 1 § i THEN 
3; 6 1 BEGIN 
H 5 1284 4144 
3 } 5 2 The recovery process was interrupted by a control C. Bail out. 
: 6 1 e SS 
3 8 8 IF .EDTS$G_CC_DONE THEN RETURN (EDIS. AßOGVCC) ELSE RETURN (EDTS_CTRC__IGN); 
; 691 30 END; 
: 69 1298 EDTSSTERMIN_RCOVMOD (); 
; 694 129 END; 
8 1598 $1 
; 69 1 8* i If we are in Line mode, then print the current Line. 
a img 
; $80 1299 IF (.EDT$$G_EDIT_MOD EQL LINE_MODE) 
; 701 1300 THEN 
; 3 1301 BEGIN 
; 7 1 g EDTSSTY_CURLN (); 
: 704 130 END; 
. 6 
: 709 : 8 And execute the main stream of commands. 
; 709 1308 , EDTSSEXECMD (INP_TERM); 
: ay : 19 Do the finalization processing. 
; ae 1 EDTSSTERMIN (); 
; ap : 13 On the VAX we need to deallocate the dynamic descriptors 
: 71 131 ‘ 
* 9 L ! Hi Bir ROLIss (BLISS32) 
; 5 0 1 i$ STRSFREE1_DX (FILE_DESC); 
3 721 1 Y STRSFREE1_DX (RHB_BESC); 
; 7 g 1 TRSFREE1-DX (L_IAP_DESC); 
. UF 1 § STRSFREE1_DX (L_OUT_DESC); 
3; 726 1 STRSFREE1_DX (L_CMD_DESC); 
3 725 1324 STRSFREE1-DX (L~JOU-DESC); 
3 4 $ ! 5 21 
: 728 1 $ COTSSs pecaTay = 67; ! set up reentry flag so we can call EDT again 
3; 729 1 3 RETURN (1); 
; 7 1 ND; ' of routine EDTSEDIT 


= main entry point 
= Main entry point 


00 00 00 38 55 4F 


besten 
-seo- 
1 ~Sep-1 


4A 2€ 00000 P.AAA: 


OFFC 00000 


5B 000000006 00 X 00002 


be 12:95:87 


eTITL td Far EDTSMAIN = main entry point 
-IDENT \V04-000\ 

-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
eASCII = \. JOU; \<0><0><0> : 
.EXTRN EDTSM_NOCREATE, EDTSM_NOJOURNAL 
-EXTRN EDTSM_COMMAND, EDTSM_ROCOMMAND 
.EXTRN EDTSK-OPEN_IN_OUT 

«EXTRN EDTSK_OPEN- INPUT 

»EXTRN —I FILE 

eEXTRN EDTSK-JOURNAL FILE 

-EXTRN EDTSK_OPEN_OUTPUT_NOSEQ 

sEXTRN EDTSK_ COMMAND rite 

-EXTRN EDTSK-CLOSE, EDTSSCALLFIO 

SEXTRN EDTSSEXE_ CMO EDTSSTERMIN_ RCOVMOD 
-EXTRN EDTSSINIT, EDTSSTERMIN 

-EXTRN EDTSSFIOPN_ERR, EDTSSTY_CURLN 
-EXTRN EDTSSFMT_MSG EDTSSSET_ F 
“EXTRN EDTSXLATE, EDTSFILEIO 

“EXTRN EDTSWORKIO, EDTSSHANDLER 

.EXTRN STRSCOPY_DX STRSFREE | _DX 

“EXTRN EDTS$G_REENTRY, EDTSSA~COM_NAM 
.EXTRN EDTSSA_CMD_NAM, EDTS$G_CMD_NAMLEN 
.EXTRN EDTSST_CMD-NAM_DEF 1 

.EXTRN EDTS$T_CMD_NAM_DEF 

.EXTRN EDTSS$T_CMD-NAM_DEF 

-EXTRN EDTSS$T—CMD-NAM-DEF4 

-EXTRN EDTS$G_EXITD, EDTSSA_JOU_NAM 
“EXTRN EDT$$G_JOU_NAMLEN 

-EXTRN EDTS$$G_RCOU_MOD 

-EXTRN EDT$$G_EDIT—MOD 

-EXTRN EDTS3G_EDIT-DFLTMOD 

-EXTRN EDTSSA_[N? RAR EDTS$G_INP_NAMLEN 
“EXTRN EDTS$$G_FNF -MSGFLG 

~EXTRN EDTSSA0UT NAM, EDTS$G_OUT_NAMLEN 
~EXTRN —. ~10FT_NFND 

-EXTRN EDTSS$V-OPTIONS, EDTS$G_LASTMSG 
-EXTRN EDTSSA_CMD_BUF, EDTS$T_CMD_ Blt 
-EXTRN EDTSSA_CMD-END, EDT$$G_CC_BONE 
-EXTRN EDTSSA_FILE_ROUT 

-EXTRN EDT$SG_FILE-ENV 

~EXTRN EDTSSA-XLAT _ROUT 

.EXTRN EDTS$G-XLATE-ENV 

-EXTRN EDTSSA_WORK_ROUT 

-EXTRN EDTS$$G-WORK-ENV 

-EXTRN EDTS_COMFILREX, EDTS_REENTRY 
-EXTRN EDTS-COMFILNOP, EDTS~COMFILCLO 
-EXTRN EDTS-NOJNLFIL, EDTS_INPFILNEX 
-EXTRN EDTS_NONSTDF IL cots EDI TORABO 
TEXTRN EDTS-ABOBYCC, EDTS_CTRC__IGN 
-EXTRN STRSCOPY_R 

ENTRY EDISEDIT, Save R2,R3,R4,R5,R6.R7,RB,RIRIO,-; O767 | 
MOVAB EDTSSA_CMD_NAM, R11 : | 


VAX-11 Bliss-32 V4.0-74 


DISKSVMSMASTER:CEDT.SRCJMAIN.BLI;1 


Page 41 
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7 | 
EDTSMAIN = main entr int Ibese 1984 01:07:45 VAX=-11 Bliss-32 V4.0-74 Page 
EDTSEDIT = Main entry point 1 233. — DISKSVMSMASTER: CEDT.SRCJMAIN.BLI;1 ° 3s 
A 6 MOVAB EDT$$G_WORK_ENV, R10 : | ; 
G 19 MOVAB EDTSSTICMD RAM. BEF 4. RY : ; 
G 1 MOVAB. STRSCOPY_R> RB ; : 
6 3 MOVAB STRSCOPY DK, R7 : | ; 
§ G MOVAB EDT$$G_EDIT MOD, R6 : : 
G g MOVAB STRSFREE1 DR, R5 : : 
4 6 MOV EDTSS$V_OPTIONS, R4 : : 
f 4 r 5 suet 4 . 8 os360 
00000043 $F 000096886 0 bj CMPL pT$S¢_REENTRY, #67 : —R 
000000006 00 4h 4 9A mov ZBL ses. EDTS$G_REENTRY ; : 
50 000000006 &F 9 1$: MOVL #EDTS_REENTRY, RO : : 
000006 D4 28: CLRL EDTS$$G_EXITD + 0959 ; 
2c AE -«020E00 BP D0 MOVL eit) Ye FILE_DESC : 0970 : 
AE D4 CLRL Fite —38 6565 
24 AE 020E00 8F 00 MOVL  § #34471936, RHB_DESC + 0974 ; 
AE ps CLRL  RHB_DESC+, : 0973 ; 
05 6c 91 (APY, # : 0976 : 
1A 1 BLEQU 3$ : ; 
18 Ag D TSTL FILE_ROUT ; : 
1§ 1 BEQL «6s 38 : F 
50 18 ac D MOVL FALE ROUT RO + 0979 : 
000000006 00 60 D MOVL (RO); EDT$$A_FILE_ROUT : 3 
000000006 00 04 5 pg MOVE 4 (ROS, EDTSSG_FILE_ENV : 0980 : 
000000006 00 000000006 99 9 3$: MOVAB EDTSFILEIO, EDTS$A_FILE_ROUT > 0984 F 
000000006 : CLRL EDTS$$G_FILE_ENV + 0985 ; 
6 6¢ 1 4$: MPR =ss«C AP?) ,, 6 : 0988 ; 
17 1 BLEQU 5$ ; ; 
ic D TSTL | WORK_ROUT : : 
12 1 BEQL)=Sés«éSS ; F 
000000006 90 1¢ BC D MOVL § @WORK_ROUT, EDTS$A_WORK_ROUT + 0991 3 
18 AC OD MOVL FILE RouT, R : 0992 : 
6A 04 AO 4 ROVL 4(ROY, EDT$$G_WORK_ENV F ones : 
000000006 00 000000006 88 9E 5$: MOVAB {DTSWORKIO, EDTS$A_WORK_ROUT : 0996 : 
6A ps CLRL  EDT$$G_WORK_ENV : 0997 ; 
07 6c 91 6$: CMPB sé), 7 : 1000 ; 
1A 1B 000D BLEQU 7 ; : 
20 At DS 00008 TSTL XLATE_ROUT : : 
1§ 1 D BEQL : 3 
50 20 aC D E MOVL § XLATE_ROUT, RO + 1003 ; 
000006 99 60 0D £4 MOVL (RO), "EDT$$A_XLATE_ROUT ; : 
00000006 04 AO p ; ROVL 4<ROS, EDTS$G_XLATE_ENV ; 1004 : 
000000006 00 000000006 8 9 F578 MOVAB EDTSXLATE, EDTS$SA_XLATE_ROUT > 1008 : 
AD CLRL EDTS$6 york ENV : 1009 : 
1¢ AE 020€00 0 F DO 00102 8 MOVL  #34471936 C_INP_DESC : 1018 
AE D4 OO10A CLRL L_INP_DESC+ ; 1981 
4 AC 0D 001 PUSHL IRP DESC : 1022 
0 AE 9F 0011 PUSHAB L_IAP DESC ; 
900006 69 o RF bb dotté Sete Ee Seen oto rssa INP NAR 1023 
titddittdit 8 #9 AE Re iit MOVZ2WL L-INPTDESC, EDT$$G. INP NAMLEN ; 1852 
| 
J 


7 | 
DTISMAIN = main entry point 1h-s6 -1984 01:07:45 VAX-11 Bliss-32 V4.0-74 P 7 
EDISEDIT "Rain entry cotnt race ee eee ey Peet talSteacceot sacimarw.ouz:1 2% chi 
14 AE O20E0009 BF DO 90126 Mov. #3471936, | OUT DESC ; 1935 : 
01 E $1 00181 CHP RAPD L"#i 71 3 : 
—E 18 001 BLEQU 9 ; : 
08 A ; 1 TSTL QUT _DESC : F 
0 1 QL 5 ; 
08 AC pd 138 PUSHL OUT_DESC ; : 
1 AG F 001 F PUSHAB L_OOT DESC : : 
7 0 FB 14 CALLS #2, STRSCOPY_DXx : : 
990000006 0 18 AE p 144 9$: OVL L_OUT_DESC+4> EDTSSA_CUT_NAM : 1032 : 
00000006 00 146 AE 14¢ MOVZWL L~OUT DESC. EDT$$G_OOT_NAMLEN + 103 : 
OC AE 0200009 BF 00 00154 VL #34477936 L _CMD DESC : 1034 : 
10 AE 4 O015¢ CLRL 17 D_DESts : 1037 : 
02 6¢ 1 0015F CMPB 5. + 1039 : 
—E 1B 00162 BLEQU 10S : 3 
0c aC 0 164 TSTL  CMD_DESC : F 
0 167 EQ. ~=s«10 : : 
o¢ AC pd 169 PUSHL  CMD_DESC : : 
10 AE 9F 0016C PUSHAB L_C DESC ; : 
67 0 FB g CALLS #2, STRSCOPY_DXx : : 
68 10 AE p or 2.108:  MOVL L_CMD_DESC+4> EDTSSA_CMD_NAM + 1061 ; 
000000006 00 oC AE ¢ 176 mOVZWL L CMD DESC, EDTS$$G_CAD_NAMLEN : 1048 : 
04 AE 020E00 6 BF D O17 MOVL #34477936, L_JOU_DESC + 104 : 
08 AE D4 186 CLRL OL Jou_DESt+4 + 1046 ; 
03 6¢ 91 00189 CMPBOs«C AP) + 1048 : 
— 18 0018C BLEQU 11$ : : 
10 AC 05 0018E TSTL  JOU_DESC ; : 
09 13 00191 BEQL ~=séséd*$ : : 
10 AC Dd 00193 PUSHL JOU_DESC F : 
08 AE 9F 00196 PUSHAB L_JOU_ DESC : : 
7 02 FB 00199 CALLS #2, STRSCOPY_Dx 3 : 
000000006 00 08 AE D0 0019C 118:  MOVL  L_JOU_DESC+4> EDTSSA_JOU_NAM : 1050 : 
000000006 00 04 AE 3C OO1A4 MOVZWL L-JOUDESC, EDT$$G_JOU_NAMLEN > 1051 
04 6C 91 OO1AC CMPBs«CRP) , "#4 : 1056 
0B 1 rat BLEQU 12$ : 
16 AC 05 00181 TSTL  OPTIONS_WRD : 
06 13 00184 BEQL 128 ; 
64 14 BC dd 00186 MOVL SOPTIONS_URD, EDTS$$V_OPTIONS : 1058 
11 OO1BA BRB 13$ : 
4 04 001BC 128: CLRL = EDTS$V OPTIONS > 1060 
000000006 F 1B 13$: CALLS #0, EDTSS$INIT : 1067 
DO O01C MOVL RO. PRIMARY FILE CONDITION : 
1¢8 CMPL PRIMARY FILE CONDITION, 83 + 1072 
0 é 1¢B BNE 4 : 
01 1¢ BRW 1$ : 
; : 1p 148: st PRIMARY _FILE_CONDITION : 1078 
000000006 8F 4 p 1 BITL FDISSV_OPTIONS, #EDTSM_NOCREATE : 
17 1D8 BEQL 6$ F 
0D 990000006 0 €9 00100 BLAC = EDTS$$G_FNF_MSGFLG, 15$ : 1082 
G 8F OD OO1E4 PUSHL EDT TNPF ILNEX : 
000000006 00 1 Fe 1EA CALLS #1, EDTSSFMT_MSG : 
6E O2ne bp boira van; hem od LEN : 19 | 
FDFD CF 9F OO1F7 PUSHAB P.AAA ~ : 1108 
04 AE 9F OOIFB PUSHAB RHB_LEN : | 
C AE OF OOTFE PUSHAB RHB~DESC ; | 
| 


f 7? 
EDTSMAIN = main entry point 16-Sep 4 VAX-11 Bliss-32 V Pa 
EDTSEDIT - Main entry point Ea een ee Faery Neale teRcceo secSmain.ous:1 2% (38 
F 1 CALLS #3, STRSCOPY : ; 
§§ 6 BLBC EotsiG. RCOV . 17$ + 1111 ; 
G D PUSHL EDISSA. JOU_RAM + 1114 3 
G F PUSHAB EDT$$G-JOU-NAMLEN : ; 
3 F 0021 PUSHAB A DESC ~ : ; 
68 03 FB OOCTA CALLS #3, STRSCOPY_R : ; 
6 AE 3 1 PUSHAB RHB_DESC + 1115 F 
AE OF PUSHAB FILE DESC : : 
£80008 G 8F OD PUSHL M#EDTSK_JOURNAL_FILE 3 : 
000006 8F DD PUSHL #EDTSK OPEN IN“ OUT : ; 
000000006 4 F F CALLS #4, EDTSSCALLFIO : : 
A : BLBS TATUS, Yes + 1117 : 
4 t BRB 9 : 1140 : 
000000006 8F 4 03 0 i 17$ BITL DTS$S$V_OPTIONS, #EDTSM_NOJOURNAL + 1130 : 
900000 6 pd 024 PUSHL EDT$S$A_JOU_N + 1133 ; 
00000 06 0 3 9 4p PUSHAB FILE sBE JOU: “NARLEN ; ; 
68 OS FB 00 28 CALLS STRECOPY. R : 3 
34 AE 9F 00 PUSHAB + ESC + 1134 3 
0 AE 9F 0025¢ PUSHAB FIL ; : 
4494 49443 F OD $ 5F PUSHL #EDTSK_JOURNA LE 3 3 
00000006 8F DD 00265 PUSHL #EDTS$K~OPEN OUTPUT _NOSEQ : : 
000000006 iH 4 r 0 CALLS i, eDTs SCACL ACLF ; : 
1 38 E8 00275 18$ BLBS STATUS, 20$ + 1141 : 
000000006 &F 64 p 0 18 BIT * OPTIONS, #EDTSM_NOJOURNAL ; : 
z AE 9F 00281 19$:  PUSHAB FILE_DESC + 1144 ; 
000000 — po . HH push —*— — 
66 6 DO 0028D 208 MOVL DT$$G_EDIT + 1152 : 
000000006 8F 64 p 0 3 BITL ppts V_OPTIONS, “FED TSM _NOCOMMAND + 1154 ; 
50 000000006 0 p 0 9 mov EDISSC_ CMD_NAMLEN, RO + 1158 : 
7E 99 9 9 6 00 9A 00 Ag MOVZBL EDTSS$T MD. NAM_DEF2, -(SP) + 1169 : 
0 G OF 0 A PUSHAB EDT$S$T~CMD-NAM_DEF 241 : 1168 : 
7E 9 9 G 9A OO2AF MOVZBL EDTS$$T~ 8. NAM-DEF1, =(SP) : 1169 : 
000006 OF 6 B6 PUSHAB EDTS$T~CMD-NAM~DEF 141 > 1166 : 
000000006 9 4 F Bf CALLS #4, EDTSSSET_COMFNAM : 1169 : 
D ¢ MOVL RO STATUS ; : 
¢¢ 3 C6 LBS STATUS, $ : 117 : 
£ 69 9A 002C MOVZBL EDTS$T_CMD_NAM_DEF4, -(SP) : 117 : 
o1 AD OF 002CC PUSHAB EDTSS$T~CMD-NAM_DEF4+1 : 117 F 
7E 90000 06 0 A O02CF MOVZBL EDTSST_CHD_NAM_DEF 3. -(SP) ; 1178 : 
00000006 0 oF 06 pus EDISST_CAD_NAM_DEF +1 : 1173 ; 
7E 69 9A DF 21$ MOVZBL EDTSST_CMD_NAM_DEF4, -(SP) + 1184 : 
01 Ad OF O02E PUS EDTS$$ST—CMD-NAM_DEF 441 > 1183 3 
50 DD 00264 PUSHL R + 1184 : 
B 0D E6 PUSHL EDTSSA cup NAM ; : 
000000006 $f 4 8 cg 22 CALLS a, EDTSSSET_COMFNAM F ; 
; E Fe BLBC = STATUS, $s > 1186 : 
DD O02F5 238 PUSHL : 1190 : 


tag a 


7 
EDTSRAIN DISMAIN = main entry point 1 EDT! 
vbe EDISEOLT = Main entry point 1 v0 
000000006 0 f CALLS 41. EQTSSEXE. CHD 1 
CMP RO, @ 


~m 
= 
tad 
wo 
=z 
mn 


3 
BLBC EDTS$G_CC_DONE, 25$ 


1197 
PUSHL EDT _ABOBYCC 


°° 960000006 


BRB 
000000006 DD 358: PUSH aeoTS CTRC__IGN 
6 F 6$: CALLS @ EDTSSFAT MSG 
G G MOV DfS$T_CMD_BOF, EDTSS$A_CMD_BUF 
6 6 D MOVL DTS$A-CMD-BUF, EDTS$SA_CMD—END 
6 MO-END, RO 


MOVE —EDTSSA 
MOVE #33, (RO) 
#1, EDT$$G_EDIT_DFLTMOD 


oa "OTV0O— 
o 


SN FROM FBO OW MOOS MONS MOVIO FP AT 
< 
Gg 


o 
oD 
nn 
COWO@Oo WONMOOOOC@BO@O 
VINO IN RERSSEVF- TAO 
Oo 


-S$ep-1984 01:07: VAX-11 Bliss-32_ V4.0-74 Pp 9 
b-sen-1944 93:90:83 DEEKSVMGMASTERSCEDT SRCIMAIN.BLI:1 — 4/ 
f 
; 
1 ; 
| 3 
i BRB ; 
48 27$:  ®BITL §DTS$V_OPTIONS, #EDTSM_COMMAND + 1211 
1 4 BEQL 0$ : 
pd PUSHL EDTSSA_CMD_NAM + 1214 
000000906 F PUSHAB EDTS$$G-CMD-NAMLEN : 
‘ OF 5 FqLE D : 
68 FB CALLS #3, STRSCOPY_R ; 
* OF § Fite DESC : 1215 
999000 6 E9 0036 BLBC EDTS$SG_IOFI_NFND, 28$ + 1217 
0000006 4 bp 6 PUSHL . bTS_COMF ICNEX : 
000000006 8F DD $ 8$ PUSHL #EDTS_COMFILNOP : 
000000006 00 ? Fe 77 29% CALLS fs EBTS$FIOPN_ERR : 
1 7 BRB 31§ ; 1219 
— 7C 308 CLRQ = =( SP) + 1227 
E 7C 0038 CLRQ  =(SP) : 
000000006 4 F 8 CALLS #4, EDTSSSET_COMFNAM : 
9 D VL RO. § Ty : 
9 E gE BLBS STATUS, 32$ + 1229 
000000006 aF BO 3 31$: HOVL #EDTS_EDITORABO, RO : 
66 000000006 99 D0 3 32$:  MOVL EDT$$G_EDIT_DFLTMOD, EDT$$G_EDIT_MOD + 1234 
92 0 CF 003A0 CASEL PRIMARY_FILE_CONDITION, #0, #2 + 1240 
002D 004¢ 0006 AG 33$: WORD — 
—— 
50 000000006 00 DO OO3AA 34533  MOVL EDTS$G_FNF_MSGFLG, RO + 1249 
01 D} B1 CMPL DISSG_EDIT_MOD. 7 + 1245 
4 § B4 BNEQ ; 
37 E BG BLBC ~=E=._s«aRO 398 : 1249 
000000006 &F bb BY PUSHL 4 br _INPF ILNEX ; 
3¢ 8 E9 003C1 358 BLBC =._s«aRO 398 + 1254 
000000006 000000006 i bo Ca ROVL #EOTS_INPFILNEX, EDTS$G_LASTMSG J 
01 6 p} D| 36$ CHPL TS$G_EDIT_MOD, #1 : 136 
000000006 8F DD 00306 PUSHL #EDTS_NONSTDFIL > 1265 
000000006 00 1 FB D 37S: CALLS *t EDTSSFMT_MSG : 
000000006 G BF D £5 38$: MOVL #EDTS_NONSTDFIL, EDT$$G_LASTMSG : 1267 
Hanttddiittdd 0 PS OSG 308; et EPTSSGYRCOV MOD, SoS ho : 130 
DD 003F PUSHL + 1281 
000000006 00 1 FB 003F9 CALLS #1, EDTSSEXE_CMD : 


ss 
vor-000, = EDTSeDIT ——— urenn unn  YMCLTWBLLSRERE HG SaTaarneusin POMP gD 


~ 


i ° pues eng“ 
6 00 € LBC ~—- EDT $$G_CC_DONE, 408 : 1288 
2 dodooegoe SF b Rove MEDTS_ABOBYC, 
50 000000006 8F B6 40S: ROVE WEDTS_CTRC__IGN, RO : 
000000006 99 ; 41$: CALLS DTSSTERMIN_RCOVMOD 1 32 
: 428: CPL i G_EDIT_MOD> #1 31 
000000006 00 0 Fe CALLS EDTS$S$TY_CURLN :1 
: D 43%:  CLAL : 1 
900000006 99 FB CALLS #1, EDTSSEXE_CMD : 
G 0 FB CALLS #0, EDTSSTERMIN : 1312 
2c AE OOF 44$:  PUSHAB FILE DESC : 131 
65 01 FB CALLS STRSFREE1_DXx : 
26 AE OOF PUSHAB ar _DESC : 1320 
65 01 FB CALLS ya RSEREE! _Dx : 
1¢ «AE OOF PUSHAB tine DESC + 1321 
L ; 
65 01 FB CALLS uth FREE! _Dx 
16 AE OF PUSHAB tut + 1322 
65 01 FB CALLS are PRET _Dx 3 
OC AE OF PUSHAB [ "tnd DESC + 1323 
65 01 FB CALLS aT. STRSFREE1_Dx : 
04 AE OF PUSHAB : 1324 
5 FB CALLS 57 STRSFREE1_DXx 3 
000000006 0 43 9A mOVZBL 4 Het, “gD TS86 REENTRY : 135 
bs RET 31 29 
0 45$: -WORD Save nothing ; 08 
7E 04 CLRL 20s = (SP) ; 
SE 0D PUSHL ; 
ze 04 aC D MOV 4(AP), -(SP) : 
000000006 0 0 fe CALLS #3, EDTSSHANDLER : 


; Routine Size: 1153 bytes, Routine Base: _EDTSCODE + 0008 


43) 1334 ! <BLF /PAGE> 


1b-sep-1966 01:07:45 YANCY Bliaee32 V4.O=7Eg n 


; 2 : 1338 } END ! of module EDTSMAIN 
7 1 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 

_EDTSCODE 1161 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
— — Symbols * Pages Processing 

File Total ibeded Percent Mapped ime 
4 3363 pot ome eet bees) 377 6 1 40 00:00.2 
-8255$DUA28: LEDT.SRC oS 2 1 50 7 00:00.1 
$255S$DUA28: CSYSLIBISTARLET.L32;1 9776 6 = 581 00:04.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:MAIN/OBJ=OBJ$:MAIN MSRC$:MAIN.BLI/UPDATE=(ENHS$:MAIN) 
1153 coge + 8 data bytes 


ime :50. 
Elapsed. Time: 1: 3 
nes/CPU Min 15 
Lenenes/CPU-Rin: 6856 

—æ Used: 284 pages 
Compilation Complete 


re i 


—_ 


eef 


PMENT CORPORATION 


AH-BT13A-SE 
AND PROPRIETARY 
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